home *** CD-ROM | disk | FTP | other *** search
- /*
- * $Id: tek.trm,v 1.11 1995/12/20 21:48:14 drd Exp $
- *
- */
-
- /* GNUPLOT - tek.trm */
- /*
- * Copyright (C) 1990 - 1993
- *
- * Permission to use, copy, and distribute this software and its
- * documentation for any purpose with or without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and
- * that both that copyright notice and this permission notice appear
- * in supporting documentation.
- *
- * Permission to modify the software is granted, but not the right to
- * distribute the modified code. Modifications are to be distributed
- * as patches to released version.
- *
- * This software is provided "as is" without express or implied warranty.
- *
- * This file is included by ../term.c.
- *
- * This terminal driver supports:
- * tek40xx, bitgraph, kermit_color_tek40xx, kermit_mono_tek40xx, selanar
- * ln03plus
- *
- * AUTHORS
- * Colin Kelley, Thomas Williams, Russell Lang
- *
- * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
- *
- */
-
- /*
- * Modified June 1995 Ian MacPhedran to support newterm format
- */
- #define TEK
- #define CTEK
- #define VTTEK
- #define KERMIT
- #define SELANAR
- #define BITGRAPH
-
- #ifndef GOT_DRIVER_H
- #include "driver.h"
- #endif /* GOT_DRIVER_H */
-
- #ifdef TERM_REGISTER
- register_term(tek40)
- #ifdef VTTEK
- register_term(vttek)
- #endif
- #ifdef KERMIT
- register_term(kc_tek40)
- register_term(km_tek40)
- #endif
- #ifdef SELANAR
- register_term(selanar)
- #endif
- #ifdef BITGRAPH
- register_term(bitgraph)
- #endif
- #endif /* TERM_REGISTER */
-
- #ifdef TERM_PROTO
- TERM_PUBLIC void TEK40init __P((void));
- TERM_PUBLIC void TEK40graphics __P((void));
- TERM_PUBLIC void TEK40text __P((void));
- TERM_PUBLIC void TEK40linetype __P((int linetype));
- TERM_PUBLIC void TEK40move __P((unsigned int x, unsigned int y));
- TERM_PUBLIC void TEK40vector __P((unsigned int x, unsigned int y));
- TERM_PUBLIC void TEK40put_text __P((unsigned int x, unsigned int y, char str[]));
- TERM_PUBLIC void TEK40reset __P((void));
- TERM_PUBLIC void BG_text __P((void));
- TERM_PUBLIC void BG_put_text __P((unsigned int x, unsigned int y, char str[]));
- TERM_PUBLIC void KTEK40graphics __P((void));
- TERM_PUBLIC void KTEK40Ctext __P((void));
- TERM_PUBLIC void KTEK40Clinetype __P((int linetype));
- TERM_PUBLIC void KTEK40Mlinetype __P((int linetype));
- TERM_PUBLIC void KTEK40reset __P((void));
- TERM_PUBLIC void SEL_init __P((void));
- TERM_PUBLIC void SEL_graphics __P((void));
- TERM_PUBLIC void SEL_text __P((void));
- TERM_PUBLIC void SEL_reset __P((void));
- TERM_PUBLIC void VTTEK40init __P((void));
- TERM_PUBLIC void VTTEK40reset __P((void));
- TERM_PUBLIC void VTTEK40linetype __P((int linetype));
- TERM_PUBLIC void VTTEK40put_text __P((unsigned int x, unsigned int y, char str[]));
- TERM_PUBLIC void CTEK_linetype __P((int linetype));
- TERM_PUBLIC void CTEK_move __P((unsigned int x, unsigned int y));
- TERM_PUBLIC void CTEK_vector __P((unsigned int x, unsigned int y));
-
- #define GOT_TEK40_PROTO
- #endif /* TERM_PROTO */
-
- #ifndef TERM_PROTO_ONLY
- #ifdef TERM_BODY
-
- #ifdef TEK
-
- #define TEK40XMAX 1024
- #define TEK40YMAX 780
-
- #define TEK40XLAST (TEK40XMAX - 1)
- #define TEK40YLAST (TEK40YMAX - 1)
-
- #define TEK40VCHAR 25
- #define TEK40HCHAR 14
- #define TEK40VTIC 11
- #define TEK40HTIC 11
-
- #define HX 0x20 /* bit pattern to OR over 5-bit data */
- #define HY 0x20
- #define LX 0x40
- #define LY 0x60
-
- #define LOWER5 31
- #define UPPER5 (31<<5)
-
-
- TERM_PUBLIC void TEK40init()
- {
- }
-
-
- TERM_PUBLIC void TEK40graphics()
- {
- #ifdef vms
- term_pasthru();
- #endif /* vms */
- fprintf(outfile,"\033\014");
- /* 1
- 1. clear screen
- */
- (void) fflush(outfile);
- sleep(1);
- /* sleep 1 second to allow screen time to clear on real
- tektronix terminals */
- }
-
- TERM_PUBLIC void TEK40text()
- {
- TEK40move(0,12);
- fprintf(outfile,"\037");
- /* 1
- 1. into alphanumerics
- */
- #ifdef vms
- term_nopasthru();
- #endif /* vms */
- }
-
-
- TERM_PUBLIC void TEK40linetype(linetype)
- int linetype;
- {
- }
-
- TERM_PUBLIC void TEK40move(x,y)
- unsigned int x,y;
- {
- (void) putc('\035', outfile); /* into graphics */
- TEK40vector(x,y);
- }
-
-
- TERM_PUBLIC void TEK40vector(x,y)
- unsigned int x,y;
- {
- (void) putc((HY | (y & UPPER5)>>5), outfile);
- (void) putc((LY | (y & LOWER5)), outfile);
- (void) putc((HX | (x & UPPER5)>>5), outfile);
- (void) putc((LX | (x & LOWER5)), outfile);
- }
-
-
- TERM_PUBLIC void TEK40put_text(x,y,str)
- unsigned int x,y;
- char str[];
- {
- TEK40move(x,y-11);
- fprintf(outfile,"\037%s\n",str);
- }
-
-
- TERM_PUBLIC void TEK40reset()
- {
- }
-
- #endif /* TEK */
-
-
-
- /* thanks to dukecdu!evs (Ed Simpson) for the BBN BitGraph driver */
-
- #ifdef BITGRAPH
-
- #define BG_XMAX 768 /* width of plot area */
- #define BG_YMAX 768 /* height of plot area */
- #define BG_SCREEN_HEIGHT 1024 /* full screen height */
-
- #define BG_XLAST (BG_XMAX - 1)
- #define BG_YLAST (BG_YMAX - 1)
-
- #define BG_VCHAR 16
- #define BG_HCHAR 9
- #define BG_VTIC 8
- #define BG_HTIC 8
-
-
- #define BG_init TEK40init
-
- #define BG_graphics TEK40graphics
-
-
- #define BG_linetype TEK40linetype
-
- #define BG_move TEK40move
-
- #define BG_vector TEK40vector
-
-
- TERM_PUBLIC void BG_text()
- {
- BG_move(0, BG_SCREEN_HEIGHT - 2 * BG_VCHAR);
- fprintf(outfile,"\037");
- /* 1
- 1. into alphanumerics
- */
- }
-
-
- TERM_PUBLIC void BG_put_text(x,y,str)
- unsigned int x,y;
- char str[];
- {
- BG_move(x,y-11);
- fprintf(outfile,"\037%s\n",str);
- }
-
-
- #define BG_reset TEK40reset
-
- #endif /* BITGRAPH */
-
-
- /* Color and Monochrome specials for the MS-DOS Kermit Tektronix Emulator
- by Russell Lang, eln272v@monu1.cc.monash.oz */
-
- #ifdef KERMIT
-
- #define KTEK40HCHAR 13
-
- TERM_PUBLIC void KTEK40graphics()
- {
- #ifdef vms
- term_mode_tek();
- term_pasthru();
- #endif /* vms */
- fprintf(outfile,"\033\014");
- /* 1
- 1. clear screen
- */
- /* kermit tektronix emulation doesn't need to wait */
- }
-
- TERM_PUBLIC void KTEK40Ctext()
- {
- TEK40text();
- KTEK40Clinetype(0); /* change to green */
- #ifdef vms
- term_nopasthru();
- #endif /* vms */
- }
-
- /* special color linetypes for MS-DOS Kermit v2.31 tektronix emulator */
- /* 0 = normal, 1 = bright
- foreground color (30-37) = 30 + colors
- where colors are 1=red, 2=green, 4=blue */
- static char *kermit_color[15]= {"\033[0;37m","\033[1;30m",
- "\033[0;32m","\033[0;36m","\033[0;31m","\033[0;35m",
- "\033[1;34m","\033[1;33m","\033[1;31m","\033[1;37m",
- "\033[1;35m","\033[1;32m","\033[1;36m","\033[0;34m",
- "\033[0;33m"};
-
- TERM_PUBLIC void KTEK40Clinetype(linetype)
- int linetype;
- {
- if (linetype >= 13)
- linetype %= 13;
- fprintf(outfile,"%s",kermit_color[linetype+2]);
- }
-
-
- /* linetypes for MS-DOS Kermit v2.30 tektronix emulator */
- /* `=solid, a=fine dots, b=short dashes, c=dash dot,
- d=long dash dot, e=dash dot dot */
- static char *kerm_linetype = "`a`abcde" ;
-
- TERM_PUBLIC void KTEK40Mlinetype(linetype)
- int linetype;
- {
- if (linetype >= 6)
- linetype %= 6;
- fprintf(outfile,"\033%c",kerm_linetype[linetype+2]);
- }
-
- TERM_PUBLIC void KTEK40reset()
- {
- fprintf(outfile,"\030\n"); /* turn off Tek emulation */
- #ifdef vms
- term_mode_native();
- #endif /* vms */
- }
-
- #endif /* KERMIT */
-
-
- /* thanks to sask!macphed (Geoff Coleman and Ian Macphedran) for the
- Selanar driver */
-
- #ifdef SELANAR
-
- TERM_PUBLIC void SEL_init()
- {
- fprintf(outfile,"\033\062");
- /* 1
- 1. set to ansi mode
- */
- }
-
-
- TERM_PUBLIC void SEL_graphics()
- {
- fprintf(outfile,"\033[H\033[J\033\061\033\014");
- /* 1 2 3
- 1. clear ANSI screen
- 2. set to TEK mode
- 3. clear screen
- */
- }
-
-
- TERM_PUBLIC void SEL_text()
- {
- TEK40move(0,12);
- fprintf(outfile,"\033\062");
- /* 1
- 1. into ANSI mode
- */
- }
-
- TERM_PUBLIC void SEL_reset()
- {
- fprintf(outfile,"\033\061\033\012\033\062\033[H\033[J");
- /* 1 2 3 4
- 1 set tek mode
- 2 clear screen
- 3 set ansi mode
- 4 clear screen
- */
- }
- #endif /* SELANAR */
-
- #ifdef VTTEK
-
- TERM_PUBLIC void VTTEK40init()
- {
- fprintf(outfile,"\033[?38h");
- fflush(outfile);
- sleep(1);
- /* sleep 1 second to allow screen time to clear on some terminals */
- #ifdef vms
- term_mode_tek();
- #endif /* vms */
- }
-
- TERM_PUBLIC void VTTEK40reset()
- {
- fprintf(outfile,"\033[?38l");
- fflush(outfile);
- sleep(1);
- /* sleep 1 second to allow screen time to clear on some terminals */
- #ifdef vms
- term_mode_native();
- #endif /* vms */
- }
-
- /* linetypes for VT-type terminals in tektronix emulator mode */
- /* `=solid, a=fine dots, b=short dashes, c=dash dot,
- d=long dash dot, h=bold solid, i=bold fine dots, j=bold short dashes,
- k=bold dash dot, l=bold long dash dot */
- static char *vt_linetype = "`a`abcdhijkl" ;
- static int last_vt_linetype = 0;
- TERM_PUBLIC void VTTEK40linetype(linetype)
- int linetype;
- {
- if (linetype >= 10)
- linetype %= 10;
- fprintf(outfile,"\033%c",vt_linetype[linetype+2]);
- last_vt_linetype = linetype;
- }
-
- TERM_PUBLIC void VTTEK40put_text(x,y,str)
- unsigned int x,y;
- char str[];
- {
- int linetype;
- linetype = last_vt_linetype;
- VTTEK40linetype(0);
- TEK40put_text(x,y,str);
- VTTEK40linetype(linetype);
- }
-
- #endif /* VTTEK */
-
- #ifdef LN03P
-
- TERM_PUBLIC void LN03Pinit()
- {
- fprintf(outfile,"\033[?38h");
- }
-
- TERM_PUBLIC void LN03Preset()
- {
- fprintf(outfile,"\033[?38l");
- }
- #endif /* LN03P */
-
-
-
- /* tek40xx (monochrome) with linetype support by Jay I. Choe */
- #ifdef CTEK
-
- /* these are common and maybe defined before */
- #ifndef ABS
- #define ABS(A) (((A)>=0)? (A):-(A))
- #endif
-
- /* these are common and maybe defined before */
- /* e.g. in AMIGA intuition.h */
- #ifndef SIGN
- #define SIGN(A) (((A) >= 0)? 1:-1)
- #endif
-
- static void CT_solid_vector __P((int x, int y));
- static void CT_draw_vpoint __P((int x, int y, int last));
- static void CT_pattern_vector __P((int x1, int y1));
-
- /* CT_lines are line types defined as bit pattern */
- static unsigned long CT_lines[]=
- { 0xffffffff, /* solid line */
- 0x000fffff, /* long dash */
- 0x00ff00ff, /* short dash */
- 0x00f00fff, /* dash-dot */
- 0x00f07fff, /* long dash - dot */
- 0x07070707,
- 0x07ff07ff,
- 0x070707ff};
-
- /* current line pattern */
- static unsigned long *CT_pattern = &CT_lines[0];
-
- /* we need to keep track of tek cursor location */
- static int CT_last_linetype=0, CT_last_x,CT_last_y;
-
- TERM_PUBLIC void CTEK_linetype(linetype)
- int linetype;
- {
- if(linetype<0) linetype=0;
- linetype %= (sizeof(CT_lines)/sizeof(unsigned long));
- CT_pattern= &CT_lines[linetype];
- CT_last_linetype=linetype;
- }
-
- TERM_PUBLIC void CTEK_move(x, y)
- unsigned int x;
- unsigned int y;
- {
- TEK40move(x,y);
- CT_last_x=x;
- CT_last_y=y;
- }
-
- static void CT_solid_vector(x, y)
- int x;
- int y;
- {
- TEK40vector(x,y);
- CT_last_x=x;
- CT_last_y=y;
- }
-
- /*
- simulate pixel draw using tek vector draw.
- delays actual line drawing until maximum line segment is determined
- (or first/last point is defined)
- */
- static int CT_penon=0; /* is Pen on? */
-
- static void CT_draw_vpoint(x, y,last)
- int x;
- int y;
- int last;
- {
- static int xx0, yy0,xx1,yy1;
-
- if((*CT_pattern) & 1) {
- if(CT_penon) { /* This point is a continuation of current line */
- xx1=x;
- yy1=y;
- }
- else { /* beginning of new line */
- xx0=xx1=x;
- yy0=yy1=y;
- CT_penon=1;
- }
- *CT_pattern = ((*CT_pattern)>>1) | 0x80000000; /* rotate the pattern */
- if(last) { /* draw the line anyway if this is the last point */
- TEK40move(xx0,yy0);
- TEK40vector(xx1,yy1);
- CT_penon=0;
- }
- }
- else { /* do not draw this pixel */
- if(CT_penon) { /* last line segment ended at the previous pixel. */
- /* draw the line */
- TEK40move(xx0,yy0);
- TEK40vector(xx1,yy1);
- CT_penon=0;
- }
- *CT_pattern = (*CT_pattern)>>1; /* rotate the current pattern */
- }
- }
-
- /*
- draw vector line with pattern
- */
-
- static void CT_pattern_vector(x1, y1)
- int x1;
- int y1;
- {
- int op; /* order parameter */
- int x0 = CT_last_x;
- int y0 = CT_last_y;
- int dx = x1-x0;
- int dy = y1-y0;
- int ax = ABS(dx) << 1;
- int ay = ABS(dy) << 1;
- int sx = SIGN(dx);
- int sy = SIGN(dy);
-
- if(ax >= ay) {
- for(op = ay - (ax >> 1); x0 != x1; x0 += sx, op += ay) {
- CT_draw_vpoint(x0,y0,0);
- if(op >0 || (op==0 && sx==1)) {
- op -= ax;
- y0 += sy;
- }
- }
- }
- else { /* ax < ay */
- for(op = ax - (ay >> 1); y0 != y1 ; y0 += sy, op += ax) {
- CT_draw_vpoint(x0,y0,0);
- if(op >0 || (op==0 && sy==1)) {
- op -= ay;
- x0 += sx;
- }
- }
- }
- CT_draw_vpoint(x0,y0,1); /* last point */
- CT_last_x=x1;
- CT_last_y=y1;
- }
-
- TERM_PUBLIC void CTEK_vector(x, y)
- unsigned int x;
- unsigned int y;
- {
- if(CT_last_linetype<=0)
- CT_solid_vector(x,y);
- else
- CT_pattern_vector(x,y);
- }
-
- #endif /* CTEK */
- #endif /* TERM_BODY */
-
- #ifdef TERM_TABLE
-
- TERM_TABLE_START(tek40_driver)
- #ifndef CTEK
- "tek40xx", "Tektronix 4010 and others; most TEK emulators",
- TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR,
- TEK40VTIC, TEK40HTIC, options_null, TEK40init, TEK40reset,
- TEK40text, null_scale, TEK40graphics, TEK40move, TEK40vector,
- TEK40linetype, TEK40put_text, null_text_angle,
- null_justify_text, line_and_point, do_arrow, set_font_null
- #else
- "tek40xx","Tektronix 4010 and others; most TEK emulators",
- TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR,
- TEK40VTIC, TEK40HTIC, options_null, TEK40init, TEK40reset,
- TEK40text, null_scale, TEK40graphics, CTEK_move, CTEK_vector,
- CTEK_linetype, TEK40put_text, null_text_angle,
- null_justify_text, line_and_point, do_arrow, set_font_null
- #endif
- TERM_TABLE_END(tek40_driver)
- #undef LAST_TERM
- #define LAST_TERM tek40_driver
-
- #ifdef VTTEK
- TERM_TABLE_START(vttek_driver)
- "vttek", "VT-like tek40xx terminal emulator",
- TEK40XMAX,TEK40YMAX,TEK40VCHAR, TEK40HCHAR,
- TEK40VTIC, TEK40HTIC, options_null, VTTEK40init, VTTEK40reset,
- TEK40text, null_scale, TEK40graphics, TEK40move, TEK40vector,
- VTTEK40linetype, VTTEK40put_text, null_text_angle,
- null_justify_text, line_and_point, do_arrow, set_font_null
- TERM_TABLE_END(vttek_driver)
- #undef LAST_TERM
- #define LAST_TERM vttek_driver
- #endif
-
- #ifdef KERMIT
- TERM_TABLE_START(kc_tek40_driver)
- "kc_tek40xx", "MS-DOS Kermit Tek4010 terminal emulator - color",
- TEK40XMAX,TEK40YMAX,TEK40VCHAR, KTEK40HCHAR,
- TEK40VTIC, TEK40HTIC, options_null, TEK40init, KTEK40reset,
- KTEK40Ctext, null_scale, KTEK40graphics, TEK40move, TEK40vector,
- KTEK40Clinetype, TEK40put_text, null_text_angle,
- null_justify_text, do_point, do_arrow, set_font_null
- TERM_TABLE_END(kc_tek40_driver)
-
- TERM_TABLE_START(km_tek40_driver)
- "km_tek40xx", "MS-DOS Kermit Tek4010 terminal emulator - monochrome",
- TEK40XMAX,TEK40YMAX,TEK40VCHAR, KTEK40HCHAR,
- TEK40VTIC, TEK40HTIC, options_null, TEK40init, KTEK40reset,
- TEK40text, null_scale, KTEK40graphics, TEK40move, TEK40vector,
- KTEK40Mlinetype, TEK40put_text, null_text_angle,
- null_justify_text, line_and_point, do_arrow, set_font_null
- TERM_TABLE_END(km_tek40_driver)
- #undef LAST_TERM
- #define LAST_TERM km_tek40_driver
- #endif
-
- #ifdef SELANAR
- TERM_TABLE_START(selanar_driver)
- "selanar", "Selanar",
- TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR,
- TEK40VTIC, TEK40HTIC, options_null, SEL_init, SEL_reset,
- SEL_text, null_scale, SEL_graphics, TEK40move, TEK40vector,
- TEK40linetype, TEK40put_text, null_text_angle,
- null_justify_text, line_and_point, do_arrow, set_font_null
- TERM_TABLE_END(selanar_driver)
- #undef LAST_TERM
- #define LAST_TERM selanar_driver
- #endif
-
- #ifdef BITGRAPH
- TERM_TABLE_START(bitgraph_driver)
- "bitgraph", "BBN Bitgraph Terminal",
- BG_XMAX,BG_YMAX,BG_VCHAR, BG_HCHAR,
- BG_VTIC, BG_HTIC, options_null, BG_init, BG_reset,
- BG_text, null_scale, BG_graphics, BG_move, BG_vector,
- BG_linetype, BG_put_text, null_text_angle,
- null_justify_text, line_and_point, do_arrow, set_font_null
- TERM_TABLE_END(bitgraph_driver)
- #undef LAST_TERM
- #define LAST_TERM bitgraph_drive
- #endif
-
- #endif /* TERM_TABLE */
-
- #endif /* TERM_PROTO_ONLY */
-
- /*
- * NAME: tek40xx
- *
- * OPTIONS: none
- *
- * SUPPORTS: Tektronix 4010 and others; most TEK emulators
- *
- * Further Info: none
- *
- */
-
- #ifdef VTTEK
- /*
- * NAME: vttek
- *
- * OPTIONS: none
- *
- * SUPPORTS: VT-like tek40xx terminal emulator
- *
- * Further Info: none
- *
- */
- #endif /* VTTEK */
-
- #ifdef KERMIT
- /*
- * NAME: kc_tek40xx
- *
- * OPTIONS: none
- *
- * SUPPORTS: MS-DOS Kermit Tek4010 terminal emulator
- *
- * Further Info: colour version. There is also a terminal (km_tek40xx)
- * that supports monochrome graphics.
- *
- */
- /*
- * NAME: km_tek40xx
- *
- * OPTIONS: none
- *
- * SUPPORTS: MS-DOS Kermit Tek4010 terminal emulator
- *
- * Further Info: monochrome version. There is also a terminal (kc_tek40xx)
- * that supports colour graphics.
- *
- */
- #endif /* KERMIT */
-
- #ifdef SELANAR
- /*
- * NAME: selanar
- *
- * OPTIONS: none
- *
- * SUPPORTS: selanar
- *
- * Further Info: none
- *
- */
- #endif /* SELANAR */
-
- #ifdef BITGRAPH
- /*
- * NAME: bitgraph
- *
- * OPTIONS: none
- *
- * SUPPORTS: BBN Bitgraph Terminal
- *
- * Further Info: none
- *
- */
- #endif /* BITGRAPH */
-